home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FGL402F.ZIP / EXFOR.ARJ / TEMP / 09-08.FOR < prev    next >
Text File  |  1995-01-20  |  719b  |  32 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3.       PROGRAM MAIN
  4.  
  5.       INTEGER FRAMES, STATUS
  6.       INTEGER*1 CONTEXT(16)
  7.       INTEGER FG_FLICOPEN, FG_FLICPLAY
  8.  
  9.       CALL FG_INITPM
  10.       CALL FG_SETMODE(19)
  11.  
  12.       STATUS = FG_FLICOPEN('GLASS.FLI'//CHAR(0),CONTEXT)
  13.       IF (STATUS .EQ. 0) THEN
  14. 10       FRAMES = FG_FLICPLAY(CONTEXT,1,1)
  15.          CALL FG_WAITKEY
  16.          IF (FRAMES .GT. 0) GO TO 10
  17.       CALL FG_FLICDONE(CONTEXT)
  18.       END IF
  19.  
  20.       CALL FG_SETMODE(3)
  21.       CALL FG_RESET
  22.  
  23.       IF (STATUS .EQ. -1) THEN
  24.         STOP 'GLASS.FLI not found.'
  25.       ELSE IF (STATUS .EQ. -2) THEN
  26.         STOP 'GLASS.FLI is not an FLI or FLC file.'
  27.       ELSE
  28.         STOP ' '
  29.       END IF
  30.       END
  31.  
  32.